home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Synergy Software / US English / KaleidaGraph™-PPC / Examples folder / Macro Source / Simplify < prev    next >
Text File  |  1993-04-14  |  1KB  |  206 lines
  1. alpha     "Simplify:"
  2. ibase
  3. STOa 9
  4. ;
  5. FIX 6
  6. ;
  7. alpha     "Input Column"
  8. STOa 0
  9. 0e+00
  10. STO 00
  11. ;
  12. alpha     "Fixed Error"
  13. STOa 1
  14. 0e+00
  15. STO 01
  16. ;
  17. alpha     "% Error"
  18. STOa 2
  19. 1
  20. STO 02
  21. ;
  22. RCLa 9
  23. inpt 3
  24. ;
  25. RCL 00
  26. int
  27. STO 03
  28. 1000
  29.  /
  30. STO 10
  31. ;
  32. RCL 01
  33. STO 30
  34. ;
  35. XEQ 10
  36. ;
  37. XEQ 80
  38. ;
  39. RCL 06
  40. RCL 11
  41. RCL 10
  42.  -
  43. 1.0000100017
  44.  +
  45. int
  46.  /
  47. 100
  48.  *
  49. STO 00
  50. FIX 1
  51. alpha     "Data Ignored = %"
  52. STOa 0
  53. RCLa 9
  54. view 1
  55. FIX 6
  56. STOP
  57. ;
  58. LBL 10
  59. size
  60. 1
  61.  -
  62. RCL 10
  63.  +
  64. STO 11
  65. ;
  66. LBL 90
  67. RCLi 11
  68. test 1
  69. GTO 91
  70. ;
  71. LBL 92
  72. RCLi 10
  73. test 1
  74. GTO 93
  75. ;
  76. RTN
  77. ;
  78. LBL 91
  79. 1
  80. SUB 11
  81. GTO 90
  82. ;
  83. LBL 93
  84. 1
  85. ADD 10
  86. GTO 92
  87. ;
  88. LBL 80
  89. ;
  90. RCL 11
  91. RCL 10
  92.  -
  93. 1.0000100017
  94.  +
  95. int
  96. STO 01
  97. ;
  98. RCL 10
  99. int
  100. RCL 03
  101. 1000
  102.  /
  103.  +
  104. STO 19
  105. ;
  106. RCL 10
  107. STO 20
  108. ;
  109. 0e+00
  110. RCL 01
  111. x <= y
  112. GTO 81
  113. ;
  114. 1
  115. RCL 02
  116. 100
  117.  /
  118.  -
  119. STO 08
  120. ;
  121. 1
  122. RCL 02
  123. 100
  124.  /
  125.  +
  126. STO 09
  127. ;
  128. 1.000000000000001e+308
  129. STO 12
  130. ;
  131. 0e+00
  132. STO 06
  133. ;
  134. LBL 98
  135. ;
  136. RCLi 20
  137. test 1
  138. GTO 96
  139. abs
  140. STO 07
  141. ;
  142. 0e+00
  143. RCL 12
  144. x = y
  145. GTO 94
  146. ;
  147. LBL 99
  148. ;
  149. RCL 12
  150. RCL 08
  151.  *
  152. RCL 30
  153.  -
  154. RCL 07
  155. x < y
  156. GTO 95
  157. ;
  158. RCL 12
  159. RCL 09
  160.  *
  161. RCL 30
  162.  +
  163. RCL 07
  164. x > y
  165. GTO 95
  166. ;
  167. Mi 19
  168. 1
  169. ADD 06
  170. ;
  171. LBL 96
  172. ;
  173. 1
  174. ADD 19
  175. ADD 20
  176. ;
  177. 0e+00
  178. DSE 01
  179. GTO 98
  180. ;
  181. RTN
  182. ;
  183. LBL 81
  184. RTN
  185. ;
  186. LBL 94
  187. 0e+00
  188. RCL 07
  189. x != y
  190. GTO 99
  191. Mi 19
  192. 1
  193. ADD 06
  194. GTO 96
  195. ;
  196. LBL 95
  197. RCL 07
  198. STO 12
  199. UMi 19
  200. GTO 96
  201. ;
  202. alpha     "Version 1.1 - 5/11/89"
  203. alpha     "by Lonnie R. Abelbeck"
  204. alpha     "Modified - 4/14/93"
  205. alpha     "by W. T. Jones"
  206.